﻿Imports reporte

Partial Class pruebas_Default
    Inherits System.Web.UI.Page
    
    
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim mireporte As reporte
        mireporte = New reporte()
        If Request.QueryString("activa") = "s" Then
            mireporte = New reporte("s")
        End If

        WebViewer1.Report = mireporte
    End Sub
End Class
